Sub 수식입력()

    Range("F6").Formula = "=SUM(D6:D14)"
    Range("I6").Formula = "=AVERAGEIF($C$6:$C$14, H6, $D$6:$D$14)"
    Range("I6").AutoFill Destination:=Range("I6:I10")

End Sub